module win2u

  Sub Main(ByVal Args() As String)
    dim FileName as string = Args(0)
    dim text as string = My.Computer.FileSystem.ReadAllText(FileName)
    text = text.replace(vbcr & vblf, vblf)
    My.Computer.FileSystem.WriteAllText(FileName, text, False, System.Text.Encoding.ASCII)
    System.Console.WriteLine(text)
  End Sub


end module